Option Explicit
Sub N_Sample009()
    N_Sample009_1 "N_Sample0008_1", Worksheets(1), Now()
End Sub

'QIsX{
Sub N_Sample009_1(ParamArray myVar() As Variant)
    Dim i As Long
    For i = LBound(myVar()) To UBound(myVar())
        MsgBox TypeName(myVar(i))
    Next
End Sub
